Technology 


Sec.1 
Second Term 


2022/2023 


Learning outcomes: 


At the end of the Topic students can: 


1. Write the code required to retrieve data from an Excel sheet, 
2. Write the code required to display data through their corresponding 


controls on the user interface window. 


To write the (Electronic Arabic Atlas) Program code: 


. Double click the "Continents” Combobox that opens in the design mode, and then 
the event handler appears as follows: 


Private Sub cmbbxContinent_SelectedIndexChanged(send 


End Sub 


Write the following code to display a list of country 'names of the Continent in 
the cmbbxState list, as shown in this code: 


[Private Sub cmbbxContinent_SelectedIndexChanged(sender As Object, e As EventArgs) Har 
Try 
Dim dt As New DataTable 
dt = GetDatafromExcelSheet(“c:\Atlas\database\atlas.xls", _ 
"select iiau J! from [data$] where pti 


& Me.cmbbxContinent.SelectedValue 4 "* ”) 


.cmbbxState.DataSource = 
.cmbbxState.DisplayMember = dt.Columns(@).ToString 
.cmbbxState.ValueMember = dt.Columns(@).ToString 


.cmbbxState.SelectedIndex = 3 
le. cmbbxState.SelectedIndex = ® 


Catch ex As Ex 


End Try 
[End Sub 


In the previous code, you notice the following: 


e The statement “Try/Catch’ was used to prevent errors; while running the program, the 
errors might result from calling the event cmbbxContinent_SelectedIndexChanged 
before the fill in of the list of continents’ names. 


e The following two lines of code were used to call the Event 
cmbbxState_SelectedIndexChanged to show Egypt's own data : 


Me. cmbbxState.SelectedIndex 
Me. cmbbxState.SelectedIndex 


When you run the program, you find a list of countries as shown in the following 
figure: 
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Double click "Countries" Combobox that opens in the design mode, and then the 
event handler appears as follows. 


Private Sub cmbbxState_SelectedIndexChanged(sender As O 


End Sub 


Write the necessary code that shows the selected "Country" data as illustrated in 
the following figure: 


Private Sub cmbbxState Selected IndexChanged(sender As Object, e A 
Try 
Dim dt As New DataTable 


dt = GetDatafromExcelSheet("c: \Atlas\database\atlas.xls", _ 
"select * from [data$] where Zi, 
Me.cmbbxState.SelectedValue & ”'” 
Me.1b1DC.Text = dt.Rows(0).TItem(2).ToString 
Me.lblPorts.Text = dt .Rows(@)]. Item(3) . ToString 
Me. 1b1WR.Text = dt.Rows(0).Item(4).ToString 
Catch ex As Exception 


End Try 
End Sub 


In the previous code, 
Rows refer to rows and Items refer to coloumns in the Excel sheet. The rows and 
columns numbers start with (0); row (o) refers to first row, and item (2) refers to the 
third column. 


Dear student, 
Remember the following: 


1. On choosing a Continent, the names of its related Countries will be displayed. 

2. On choosing a Country, its related data appear in the controls displayed on the user 
interface window. 

3. A value is assigned to each element of the variable " dt "(Data table) for each field 
corresponding to the displayed Control ;on the user interface window. 

4. The statement (Try/ Catch) is used with the code to prevent the occurance of errors 
during running the program. 


After running the program, the user interface window appears as follows: 
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Exercises 


Choose the correct answers 
First: The purpose of the following code : 


Read the following code, and then choose the correct answer 


Private Sub cmbbxContinent_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 
cmbbxContinent.SelectedIndexChanged 
Try 
Dim dt As New DataTable 
dt = GetDatafromExcelSheet("c:\Atlas\database\atlas.xls", _ 
"select Us from [data$] where = jall= ‘" _ 
& Me.cmbbxContinent.SelectedValue E ”* 


Statement (“) 


The Excel Data Table is set in the variable cmbbxContinent 


The Excel Data Table is saved in the following Path: 


" ¢:\Atlas\database\atlas.xls". 


The Excel Data Table is set in the variable " dt" 


Private Sub cmbbxState_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 
cmbbxState.SelectedIndexChanged 
Try 
Dim dt As New DataTable 
dt = GetDatafromExcelSheet("c:\Atlas\database\atlas.xls", _ 
"select * from [data$] where U,= '" 
Me.cmbbxState.SelectedValue 4 "'") 
Me.1b1DC.Text = dt.Rows(8).Item(2).ToString 
Me.1lblPorts.Text = dt.Rows(@).Item(3).ToString 
Me.1lb1WR.Text = dt.Rows(@).Item(4).ToString 


Catch ex As Exceptior 
End Try 


Statement 


The property Text for the control /b/Ports has assigned the value of 
data located in the Row (3) and the column (0) in the table " dt”. 


The property Text for the control /b/Ports has assigned the value of 
data located in the Row (0) and the column (3) in the table " dt". 


The property /b/Ports for the control Text has assigned the value of 
data located in the Row (0) and the column (3) in the table " dt". 


Learning outcomes: 


At the end of the Topic students can: 
1-Write the code for displaying images through the user interface controls. 
2- Prevent possible errors while running the program. 
3- Show off the image file types inside the folder. 


4-Identify the path where image files will be saved. 


Dear student, 
In this Topic we will complete writing the project code related to the pictures of 


Electronic Arabic Atlas program. 
è Set the names of the image files (Flags and Maps) with the same names displayed 


in the list of country names. 


* Some file names of country’ flags in the Flags folder: 


- 5/42. PIE 
= ió png 
- arpa 


* Some file names of country’ maps in the Maps folder: 


aa, pg 
visi. png 
al png 


Notice: 
The similarity in the names of the image files in the two folders Flags and Maps to 


simply deduce their names when assigning these images for both controls 

(pichxFlag, picbxMap) as written in the Excel sheet. 

e Write the following code in the event handler 
embbxState_SelectedIndexChanged to display the country flag and its map as 


shown in the following code: 


Private Sub cmbbxState SelectedIndexChanged(sender As Object, e As EventArgs 
Try 
Dim dt As New DataTable 
dt = GetDatafromExcelSheet("c:\Atlas\database\atlas.xls", _ 
"select * from [data$] where 2i,wi'= '" 
Me.cmbbxState.SelectedValue & "'”) 
Me.1b1DC. Text = dt.Rows(0).Item(2).ToString 
Me.lblPorts.Text = dt.Rows(@).Item(3).ToString 
Me. 1b1WR.Text = dt.Rows(@).Item(4).ToString 


Dim picName As String = dt.Rows(0).Item(1).ToString & ".png” 


Me.picbxFlag.Image = Image.Fromfile("c:\Atlas\flags\" & picName) 
Me.picbxMap.Image = Image.FromFile("c:\Atlas\maps\" & picName) 


Catch ex As Exception 
End Try 
End Sub 


While running the program, the flag and map of the selected country are 


displayed as shown in the following: 
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Remember dear student 


. Make sure of naming each file with a name suitable to its content 
. Illustrate different file types used in the project (Map —flag -National Anthem — video 
clip of touristic attractions....... ). 
. Identify the path used for saving files. 
4. Use Try/catch statement within the code to detect errors that may occur during 


program's execution and, to display an appropriate message for this error. 


The user interface window will appear after the execution as follows 


Exercises 


Setup a project of name (VB_Multimedia_PicturesIK) to insert pictures into the 


control (PictureBox) from another control (PictureBox) or from a file using the 


(InputBox) so that the User Interface Window appears as follows: 


J Insert a Picture from a 


Insert this Picture Insert this Picture 
to PictureBox 3 to PictureBox 3 


insert a Picture from a File 


PictureBox 3 


Programming Code 


Public Class Form] 
Private Sub Button] Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
PicturcBox3.Image = PictureBox1.Image 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
PictureBox3.Image ~= PictureBox2.Image 
End Sub 


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
Dim P As String 
P = InputBox("Enter a Filename:”) 
PictureBox3.Image ~ Image.FromFile(P) 
End Sub 
End Class 


Notice: The command used for inserting an image file to the control (PictureBox3) is: 


PictureBox3.Image = Image.FromFile ("PictureFilename.ext"). 


2. Setup a project called (VB_Multimedia_Pictures2K) to insert pictures into the control 
(PictureBox) from another control (PictureBox) or from a file using the (ComboBox) 


control so that the User Interface Window appears as follows: 


insert this Picture Insert this Picture 
to PictureBox 3 to PictureBox 3 


Choose a Picture Filename - 


PictureBox 3 


Programming Code 


Public Class Form] 
Private Sub Button! Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button! .Click 
PictureBox3.Image = PictureBox1.Image 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
PictureBox3.Image = PictureBox2.Image 
End Sub 


Private Sub ComboBox1_SelectedIndexChanged(By Val sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox! 
Dim P As String 
P = ComboBox1.Selectedltem 
Iry 
PictureBox3.Image = Image.FromFile(P) 
Catch ex As Exception 
MsgBox("The file " & P & " is not fond") 
End Try 
End Sub 
End Class 


Notice: We used the control "ComboBox" that preserve the names of image files saved 


in the storage media. 


Exercises 


1. Read the following code, and then choose the correct answer 


Dim picName As String = dt.Rows(@).Item(1).ToString & “.png” 
Me.picFlag.Image = Tmage.FromFile("c:\Atlas\flags\" & picHame) 
Me.picMap.Image = Imsge.Fromfile("c:\Atlas\maps\" & picName) 


The value assigned to the variable PicName is: 


Statement 


The content of Row (0) and the column (1) in the table " dt"; plus 
the file extension .png. 


The content of the Row (1) and the column (0) in the 
table " dt"; plus the file extension .png. 


The content of Row (0) and the column (1) in the table " dt"; plus 
the file extension ToString. 


2. Read the following code, and then choose the correct answer. 


Me.picFlag.Image = 
Image.FromfFile("c:\Atlas\flags\" & picName) 


The code is used to assign a picture file to the property: 


Statement 


Image for the control PicFlag 


FromFile for the control PicFlag 


Image for the control FromFile 


Learning outcomes: 


At the end of the Topic students can: 


1. Write the program code to play or stop a sound file; when pressing the 
command button 

2. Declare variables and specify their location; on the level of class, or 
procedure. 

3. Show the audio file types inside the folder. 


4. Specify the path where sound files are saved 


Adjust audio file names of countries’ national anthem; with the same names shown in the 
list of countries names. 


e Some audio file names of countries' national anthem saved in the "Anthem" 
folder 


Jaa mp3 
vió. mp3 
ds sll. mp3 


Type the following code in the "cmbbxState_SelectedIndexChanged" event 
handler to run the national Anthem of the country as shown in the following 
code: 


Dim anthemMp3 As String f 
Private Sub cmbbxState_SelectedIndexChanged(sender As Object, e As EventArgs) Hand 
Try 
Dim dt As New DataTable 
dt = GetDatafromExcelSheet("c:\Atlas\database\atlas.xls", _ 
"select * from [data$] where ¿i3yu3!= 
Me.cmbbxState.SelectedValue 4 "'") 
Me.1b1DC.Text = dt.Rows(0).Item(2).ToString 
Me.lblPorts.Text = dt.Rows(0).Item(3).ToString 
Me.lbIWR.Text = dt.Rows(0).Item(4).ToString 


Dim picName As String = dt.Rows(0).Item(1).ToString & ".png” 
Me.picbxFlag.Image = Image.FromFile("c:\Atlas\flags\” & picName) 
Me.picbxMap.Image = Image.Fromfile("c:\Atlas\maps\” & picName) 


anthemMp3 = “c:\Atlas\anthem\” & dt.Rows(@).Item(1).ToString & “.mp3” 
Me.WMPlayer.URL = anthemMp3 
Me.btnStop play.Text = “_ibsij! paji jrtis lis!” 
Catch ex As Exception 
End Try 
End Sub 


Notice: A variable named anthemMp3 was declared to the level of class, to save the path and 
the name of the sound file; so it can be used in more than one event handler 


e To control the start or stop of a sound national Anthem file; type the code in the " 


btnStop_play_Click "event handler of the button "'btnStop_Play" as shown in the 
following code: 


Private Sub btnStop play Click(sender As Object, e As EventArgs) Handles btnStop_play.Click 
f Me.btnStop play.Text = “Libs! pias : 
Me.WWPlayer.close() 
Me.btnStop_play.Text = "_ 
Else 
Me.WMPlayer.URL = anthemp3 
Me.btnStop_play.Text = “Lib, 
End If 
End Sub 


Remember dear student 


l. Make sure of naming the audio files for the national anthem of each country. 
2. Show the national anthem file types. 


The user interface window will appear after the execution as follows 


wmubsji piu! Leu 5151 


Exercises 


l- Set up a project with name (VB_Multimedia_SoundIK) so that you can insert a sound 
file to the tool (AxWindowsMediaPlayer), and play it using an input box (InputBox) on 
the form as follows: 


Eike 10 a Window shlediaPlayer ControlTool 


Insert a Sound File 


Play 


Notice 
Insert a sound file into the (AxWindowsMediaPlayer) tool by typing the desired file 
name in the input box (InputBox) that will be executed later. 


Set up a project with name (VB_Multimedia_Sound2K) to insert a sound file into the 
control (AxWindowsMediaPlayer) using the control (ComboBox), as illustrated on the 
form: 


senta Sound File to e WindowsMediePisyer ControiTool 


Choose a Sound File 


Program code 
' Insert a Sound File to a Windows MediaPlayer Control Tool 
Public Class Formi 
Private Sub ComboBox1!1_SelectedIndexChanged(ByVal sender As System.Object, 
By Val e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 
Dim V As String 
V = ComboBox1.SelectedItem 
AxWindowsMediaPlayer1.URL = V 
End Sub 
End Class 


Notice 
The control ComboBox is used to display audio files'names saved on the storage medium to 


be executed later. 


Exercises 


3. Read the following code, and then choose the correct answer 
anthemMp3 = "c:\Atlas\anthem\" & dt.Rows(6).Item{1).ToString & ".mp3" 
Me. WMPlayer.URL = anthembMp3 
Me.btnStop_play.Text = "Libs tt pai! Jiasi ini" 


The URL is used for: 


Statement 


To stop playing the sound file for the control WMPlayer 


To play the sound file for the control WMPlayer 


T 


To record the sound file for the control WMPlayer 


4. Read the following code, and then choose the correct answer 


Private Sub btnStop_play_Click(sender As Object, e As EventArgs) Handles btnStop play.Click 


If Me.btnStop_play.Text = “ ibjj! put! Jotas JLis|” Then 
Me. WAP layer.close( ) 
Me.btnStop play.Text = "ib; il paii fans” 
tise 
Me. WMPlayer.URL = anthemp3 
Me.btnStop_play.Text = " ibp]! piu! ui gli” 
End If 
End Sub 


The code is used for: 


Statement 


To play the National Anthem sound file 


To stop playing the National Anthem sound file 


| To stop/play the National Anthem sound file 


Learning outcomes: 


At the end of the Topic students can: 
1. Write the program code to play or stop a video file. 
2. Specify the path where video files are saved. 
3. Show the video file types inside the folder. 


Adjust video file names of countries’ tourist attractions; with the same names shown in 
the list of countries names. 


«Some video file names of countries’ tourist attractions saved in the "Video" folder 
>=. mp3 
vs s.mp3 
423 ll mp3 


eAdd a command button to the interface of the program So that the value of the 
property Name is “btnPlayVideos "and the value of the property Text is "tourist 
attractions". 


eType the following code in the " binPlayVideos_Click " event handler for = 
btnPlayVideos " button to run tourist attractions video file for the countries as 
shown in the following code: 


Private Sub btnPlayVideos_Click(sender As Object, e As EventArgs) Handles btnPlayVideos.Click 
If Me.btnPlayVideos.Text = "i,>lıs patie.” Then 
Me.WMPlayer.Visible = True 
Me.WMPlayer.URL = "c:\Atlas\videos\” & Me.cmbbxState.SelectedValue.ToString & " .wmv” 
Me.btnPlayVideos.Text = “ppa 1O y 
Else 
Me.WMPlayer.Visible = False 
Me.WMPlayer.close() 
Me.btnPlayVideos.Text = "i,>Lıs pilas” 
End If 
End Sub 


Remember dear student 


l. Make sure of naming the video files of tourist attractions for each country. 
2. Show the video files of tourist attractions. 
3, Recognize the path where video files are saved. 


Notice 


. The property SelectedValue of the control "cmbbxState" was used to get the name of 
the country; to identify the video file name and path. 


. The control WMPlayer was displayed by setting the property Visible to the value True; 
so you can see the video file displayed on the screen. 


. You can turn off or play the video file through bmPlayVideos button as shown in the 
previous code. 


The user interface window will appear after the execution as follows: 
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Exercises 


1- Set up a project with name (VB_Multimedia_ Vedio1K) so that you can insert a 
video file to the tool (AxWindowsMediaPlayer), and play it using an input box 
(InputBox) on the form as follows: 


Insert a Video File 


Play 


Program code 


Public Class Form1 
Dim V As String 


Private Sub Button! Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
V = InputBox("Enter a Video Filename:") 
Button2.Text = "Play" 
AxWindowsMediaPlayer1.close() 

End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
If Button2.Text = "Play" And V <> "" Then 
AxWindowsMediaPlayerl.URL = V 
Button2.Text = "Stop" 
Else 
AxWindowsMediaPlayerl.closeO 
Button2.Text = "Play" 
End If 
End Sub 
End Class 


Notice 
Insert a sound file into the (AxWindowsMediaPlayer) tool by typing the desired file 
name in the input box (InputBox) that will be executed later. 


2- Set up a project with name (VB_Multimedia_Vedio2K) to insert a video file into the 
control (AxWindowsMediaPlayer) using the control (ComboBox), on the form as 
follows: 


ty Insert a Video File to a WindowsMedisPlayer Controlfocl 


Choose a Video File - 


Program code 
' Insert a Video File to a WindowsMediaPlayer ControlTool 
Public Class Form] 

Private Sub ComboBoxI_SelectedIndexChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
ComboBox1.SelectedIndexChanged 

Dim V As String 
V = ComboBox1.SelectedItem 
AxWindowsMediaPlayerl.URL = V 
End Sub 
End Class 


Notice 
The control ComboBox is used to display video files'names saved on the storage 
medium to be executed later 


Questions relating to Project’s codes 


First question 
State whether the following statements are true (y) or false (X) 


$ 


The statement 


(1) You can use Try/Catch to discover errors while running 


(6) 


(7) 


(8) 


(9) 


the program and display an appropriate message for this 
error 

The code Me.IbIDC.Text = dt.Rows(0).Item(2).ToString 
customize a value to the element in the second row and 
first column of the data table IbIDC. 

The event SelectedIndexChanged of the control 
ComboBox is executed when changing the current item in 
the existing list. 

The (&) operator is used to concatenate between string 
variables and text; the result is a single string. 

The code Me.lbIDC.Text = dt.Rows(0).Item(2).ToString 
customize a value to the element in the first row and third 
column in the spreadsheet and places it within the IbIDC. 


O 


To the URL property in the code Me. WMPlayer. URL = 
"anthem.mp3" is used to stop or play the sound file 


"anthem.mp3". 


The function FromFile is used to assign a picture from a 


file. 


The property DisplayMember of the control ComboBox 
can be used to specify a field from the data source that 


appears inside this control. 


The property ValueMember of the control ComboBox can 
be used to specify a field from the data source as the value 


of each element of the list items. 


Second question 


You have a data table named ''Marks'' of a group of students, their grades and the 
total of these grades as follows 


‘Youssef Khaled 
¡Mohamed Khaled 
¡Samy Ahmed 
¡Mohamed Al 
¡Soad Hafez 
¡Mona Zaki 
¡Nahed Nasr 
(Wael Salah 
Hamada Farid 
‘Walid Abdou 


Name Arabic|English|French| Total 


ula 
OIN 


N 
Ww 


ww 
OJN 
= 
N 
= ob 
© N 
W N 


Choose the right syntax for the Select statement to get the following: 


1. All the records in a data table 


—_ 
Select Count (*) from Marks Bun 


Select Sum (*) from Marks 


Select Total from Marks 


2. The number of records in a data table 


Select Sum (*) from Marks 


Select Count (*) from Marks w 


Select Total from Marks 


3. The names of students only 


Select * from [Marks] a 
Where Total=99 

Select Total=99 from 
[Marks] _ 
Select Total Where 
Marks=99 


4. The names of the students and their grades 


Select * from [Marks] 
Where Total=99 

Select Total=99 from 
[Marks] ~ 
Select Total Where 
Marks=99 > 


5. All records on condition that their total equals 99 


Select * from [Marks] a. 
Where Total=99 

Select Total=99 from 
[Marks] ~ 
Select Total Where 
Marks=99 


Names and total of grades provided that their total equals 


Select Name , French from 
[Marks] Where French >=44 ~ 
Select Name, French Where 
French >=44 a 
Select Name , French >=44 | 
from [Marks] ~ 


. The Names and total of grades provided that their total is less than 


Select Name , French from 
[Marks] Where French >=44 sm 
Select Name, French Where 
French >=44 ww 
Select Name , French >=44 


. Student's names and their grades in "French" language provided that the grade 
is greater than or equal 44 


Select Name , French from 
[Marks] Where French >=44 ww 
Select Name, French Where, 
French >=44 a 
Select Name , French >=44 
from [Marks] ~ 


. All students having grade=50 in the "Arabic" language 


Select Count (Name) from 
Marks Where Total >=75 w 


Select Count (Total >=75) = 
from Marks 

Select Name , Count w 
(Total >=75) from Marks 


10.All students names that begin with the letters ' M' 


Select Count (Name) from 
Marks Where Total >=75 | i 
Select Count (Total >=75) y 
from Marks 

Select Name , Count 

(Total >=75) from Marks 


12.All students names ending with the letters ' ed ' 


Select Name from Marks w 
Where Name Like 'ed%' 


Select Name from Marks y 
Where Name Like '%ed' 


Select Name ('_ed') from 
Marks ~ 


